(find-coding-systems-for-charsets):

Delete `composition' (if any) from CHARSETS.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 266ad0c83f279953366bbcdc0c58f3316e3eb58c..34fff500454ea42e7961b42481da4643f1c30abc 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -289,6 +289,7 @@ CHARSETS is a list of character sets."
          (and (= (length charsets) 1)
               (eq 'ascii (car charsets))))
       '(undecided)
+    (setq charsets (delq 'composition charsets))
     (let ((l coding-system-list)
          (charset-prefered-codings
           (mapcar (function